home *** CD-ROM | disk | FTP | other *** search
/ IRIX Base Documentation 2002 November / SGI IRIX Base Documentation 2002 November.iso / usr / share / catman / p_man / cat3 / f90 / pxfsetpgid.z / pxfsetpgid
Encoding:
Text File  |  2002-10-03  |  4.2 KB  |  91 lines
  1. PXFSETPGID(3F)                                        Last changed: 1-22-99
  2.  
  3.  
  4. NNAAMMEE
  5.      PPXXFFSSEETTPPGGIIDD - Set process group ID
  6.  
  7. SSYYNNOOPPSSIISS
  8.      SSUUBBRROOUUTTIINNEE PPXXFFSSEETTPPGGIIDD ((_i_p_i_d,, _i_p_g_i_d,, _i_e_r_r_o_r))
  9.      IINNTTEEGGEERR _i_p_i_d,, _i_p_g_i_d,, _i_e_r_r_o_r
  10.  
  11. IIMMPPLLEEMMEENNTTAATTIIOONN
  12.      UNICOS, UNICOS/mk, and IRIX systems
  13.  
  14. SSTTAANNDDAARRDDSS
  15.      IEEE standard interface for FORTRAN 77
  16.  
  17. DDEESSCCRRIIPPTTIIOONN
  18.      On IRIX systems, this routine is in lliibbffoorrttrraann..ssoo which is linked by
  19.      default when compiling programs with the MIPSpro 7 Fortran 90 compiler
  20.      or when compiling programs with the --ccrraayylliibbss option to the MIPSpro
  21.      F77 compiler.
  22.  
  23.      The PPXXFFSSEETTPPGGIIDD routine uses the sseettppggiidd(2) system call to change the
  24.      process group ID of the process with a process ID of _i_p_i_d.  The
  25.      process group ID may be for an existing process group or a new process
  26.      group which will be created. Upon sucessful completion, the process
  27.      with a process ID of _i_p_i_d will have its process group ID set to _i_p_g_i_d.
  28.  
  29.      When using the CF90 compiler or MIPSpro 7 Fortran 90 compiler on
  30.      UNICOS, UNICOS/mk, or IRIX systems, all arguments must be of default
  31.      kind unless documented otherwise.  On UNICOS and UNICOS/mk, default
  32.      kind is KKIINNDD==88 for integer, real, complex, and logical arguments; on
  33.      IRIX, the default kind is KKIINNDD==44.
  34.  
  35.      The following is a list of valid arguments for this routine:
  36.  
  37.      _i_p_i_d      An input integer variable that contains the process ID of
  38.                the process to change the process group ID. As a special
  39.                case, if _i_p_i_d is zero the process ID of the calling process
  40.                is used.
  41.  
  42.      _i_p_g_i_d     An input integer variable containing the new process group
  43.                ID.
  44.  
  45.      _i_e_r_r_o_r    An output integer variable that contains zero if PPXXFFSSEETTPPGGIIDD
  46.                was successful or nonzero if PPXXFFSSEETTPPGGIIDD was not successful.
  47.  
  48.      PPXXFFSSEETTPPGGIIDD may return any of the following error values:
  49.  
  50.      EEAACCCCEESS    If the value of _i_p_i_d matches the process ID of a child
  51.                process of the calling process and the child process has
  52.                successfully executed one of the PPXXFFEEXXEECC(3F) functions.
  53.  
  54.      EEIINNVVAALL    If the value of _i_p_g_i_d is less than 0 or is not a value
  55.                supported by the implementation.
  56.  
  57.      EEPPEERRMM     If the process indicated by _i_p_i_d is a session leader; if the
  58.                value of _i_p_i_d is valid but matches the process ID of a child
  59.                process of the calling process and the child process is not
  60.                in the same session as the calling process; or if the value
  61.                of _i_p_g_i_d does not match the process ID of the process
  62.                indicated by pid and no process with a process group ID
  63.                exists that matches the value of _i_p_g_i_d in the same session
  64.                as the calling process.
  65.  
  66.      EESSRRCCHH     If the value of _i_p_i_d does not match the ID of the calling
  67.                process or of a child of the calling process.
  68.  
  69. EEXXAAMMPPLLEESS
  70.         program pxftest
  71.         integer ipid, ierror
  72.  
  73.         CALL PXFGETPID(ipid, ierror)
  74.         if (ierror .ne. 0) then
  75.            print *,'FAILED: PXFGETPID call with error = ',ierror
  76.         else
  77.            CALL PXFSETPGID(ipid, ipid, ierror)
  78.            if (ierror .eq. 0) then
  79.               print *,'PASSED: PXFSETPGID normal test'
  80.            else
  81.               print *,'FAILED: PXFSETPGID normal test with error = ',ierror
  82.            endif
  83.         endif
  84.         end
  85.  
  86. SSEEEE AALLSSOO
  87.      sseettppggiidd(2)
  88.  
  89.      _A_p_p_l_i_c_a_t_i_o_n _P_r_o_g_r_a_m_m_e_r'_s _L_i_b_r_a_r_y _R_e_f_e_r_e_n_c_e _M_a_n_u_a_l for the printed
  90.      version of this man page.
  91.